function simplexReporte(xfinal, ZjCj, Y, z0, ind, nomarch)
%               SIMPLEXREPORTE
% Genera el reporte del metodo simplex realizado y escribe en un archivo
% .txt que estara en la carpeta de 'Reportes' de este proyecto.
%
%                           - Marcela Maldonado Figueroa -
%                             - Pedro Orozco del Pino -
%                            - Jose Alonso Solis Lemus -
%
str = strcat('../Reportes/Reporte_', nomarch);
fi = fopen(str, 'w');
nbas = ind(1:length(ZjCj));
bas = ind((length(ZjCj)+1:length(ind)));
fprintf(fi, '===================================================\n');
fprintf(fi, '                     REPORTE de SIMPLEX            \n');
fprintf(fi, '===================================================\n\n');


tot = (length(ZjCj));
esp = fix((42/(tot+1)));

fprintf(fi, 'Zj - Cj');

for i = 2:tot
    for j=1:esp
        fprintf(fi,' ');
    end
    fprintf(fi, '%g',ZjCj(i-1));
end

 for j=1:esp
        fprintf(fi,' ');
 end

fprintf(fi, '%g\n', ZjCj(tot));

fprintf(fi, '================================================\n\n');

[yr, yc] = size(Y);

fprintf(fi, 'Var_s');
for i=1:length(nbas)
    for j=1:esp
        fprintf(fi,' ');
    end
    str=strcat('x_', num2str(nbas(i)));
    fprintf(fi, str);
end
    
fprintf(fi, '\n\n');

for i=1:yr
    str = strcat('  x_', num2str(bas(i)));
    fprintf(fi, str);

    for j = 2:(yc)
      for k=1:esp
          fprintf(fi,' ');
      end
       fprintf(fi, '%g',Y(i,j-1));
    end

    for k=1:esp
        fprintf(fi,' ');
    end

fprintf(fi, '%g\n\n', Y(i,yc));
end
    
fprintf(fi, '======================================================\n\n');

tot = length(xfinal);
in = 1:tot;

fprintf(fi, '                  X_FINAL                        \n')
fprintf(fi, '======================================================\n\n');

esp = fix((42/(tot+1)));

for i = 2:tot
    str = strcat('x_', num2str(in(i-1)));
    for j=1:esp
        fprintf(fi,' ');
    end
    fprintf(fi, str);
end

 for j=1:esp
        fprintf(fi,' ');
 end

str = strcat('x_', num2str(in(tot)));
fprintf(fi, str);
fprintf(fi, '\n');
esp = fix((59/(tot+1)));

for i = 2:tot
    for j=1:esp
        fprintf(fi,' ');
    end
    fprintf(fi, '%g',xfinal(i-1));
end

 for j=1:esp
        fprintf(fi,' ');
 end

fprintf(fi, '%g\n', xfinal(tot));
fprintf(fi, '=======================================================\n\n');
str = strcat('Valor Funcion Objetivo:\t', num2str(z0));
fprintf(fi, str);
fprintf(fi, '\n=======================================================\n');


fclose(fi);

edit(strcat('../Reportes/Reporte_', nomarch));